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NEWSLETTER INFORMATION 



THE TRS-80 MONTHLY NEWSLETTER IS PUBLISHED BY H & E COMPUTRONICS INC. 

THE TRS-80 MONTHLY NEWSLETTER IS NOT SPONSORED, NOR IN ANY WAY OFFICIALLY SANC- 
TIONED BY RADIO SHACK. 

THE PURPOSE OF THE TRS-80 MONTHLY NEWSLETTER IS TO PROVIDE AND EXCHANGE INFOR- 
MATION RELATED TO THE CARE, USE AND APPLICATION OF THE TRS-80 COMPUTER SYSTEM. 

H & E COMPUTRONICS INC. DOES NOT TAKE FINANCIAL RESPONSIBILITY FOR ERRORS IN 
PUBLISHED PROGRAMS. USERS ARE ADVISED TO CAREFULLY EDIT VITAL PROGRAMS. 

THE TRS-80 MONTHLY NEWSLETTER ENCOURAGES COMMENTS, QUESTIONS AND SUGGEST- 
IONS. WE PUBLISH ARTICLES AND PROGRAMS WRITTEN BY OUR READERS. COMPUTRONICS 
INC. WILL PAY CONTRIBUTORS FOR ARTICLES AND PROGRAMS PUBLISHED IN THE NEWS- 
LETTER. 

SUBSCRIPTIONS ARE $24 PER YEAR ($28 PER YEAR -CANADA AND MEXICO, $36 PER YEAR OUT- 
SIDE OF THE UNITED STATES, CANADA AND MEXICO-AIR MAIL). BACK ISSUES ARE AVAILABLE 
($2 PER ISSUE). 

HAVE ANY URGENT QUESTIONS? WE HAVE SATURDAY TELEPHONE HOURS - 9:00-11:00 
(mornings) and 3:00-6:00 (afternoons). OTHER TIMES, LEAVE A MESSAGE ON OUR ANSWERING 
MACHINE. WE WILL PROMPTLY RETURN ALL CALLS (COLLECT). 
LOCAL TRS-80 CLUBS 

TRS COMPUTER CLUB OF ORLANDO (FLORIDA) - Contact M. Scott Adams - (305) 862-6917. 

TRS-80 USER'S GROUP OF CHICAGO (ILLINOIS) - Contact John C. Longstreet, 1201 W. Chase 
Avenue, Chicago, Illinois 60626 or call 761-2742. 

TRS-80 USER'S GROUP OF WALNUT CREEK (CALIFORNIA) - Contact John Snyder, 712-C Country 
Wood, Walnut Creek, California 94598 or call (415) 938-9669. 

INLAND COMPUTER SOCIETY - Contact Sandy Sparks, 3359 Second Street, Riverside, 
California 92501 or call (714) 256-5319 or (714) 784-3499. 

TRS-80 USER'S GROUP OF SANTA ANA - Contact Arnold Vagts, 3713 S. Parton Street, Santa Ana, 
California 92707 or call (714) 549-7021. 

TRS-80 BUG INC. OF FLORIDA - Contact Larry J. Harrell, 2100 N. Atlantic Avenue #402, Cocoa Beach, 

Florida 32931 or call (305) 784-0456. 

ADVERTISING IN THE TRS-80 MONTHLY NEWSLETTER 

$150 PER PAGE ... $75 PER HALF PAGE ... $40 PER QUARTER PAGE ... $20 PER EIGHTH PAGE. 
THESE PRICES ARE VALID FOR ISSUES 7 AND 8 ONLY. ADS MUST BE SUBMITTED BYTHE 10th OF 
EACH MONTH IN ORDER TO APPEAR IN THE FOLLOWING MONTHS ISSUE. 
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BITS AND PIECES 

by 

HOWARD Y. GOSMAN 

OUR NEW LOCATION 

We are extremely cramped for space and are in the process of moving to a new and larger facility. As of 
January 1, 1979, our staff has doubled in size in order to keep up with the increasing demand for the 
Newsletter and Software. We will publish our new address next month. Please continue to send all mail to 
our postal box (P.O. BOX 149). Anyone wishing to visit or purchase software may drop by after 
February 1. 

24 HOUR SERVICE ON SOFTWARE ORDERS 

All orders placed after January 1, 1979 will be processed within 24 hours. You will nolongerhavetowait 
for software shipments. All phone orders will be processed immediately. 

OUR SOFTWARE GUARANTEE 

Any software purchased from H & E COMPUTRONICS INC. may be returned. To my knowledge, we are 
only company offering a return policy on software. We do charge a 10% penalty for returns ($3 
minimum). For example, if you return a $100 business package, we will send you a $90 refund. We are 
trying to sell high quality software. We do request (not demand) that you give us a short explanation with 
each return. This will help us improve the quality of our software. Also remember, WE DO NOT CHARGE 
FOR POSTAGE OR HANDLING. We do charge tax on any order sent to New York State addresses. There 
are no additional charges for VISA or MASTERCHARGE orders. We do add a $5 postage and handling 
fee to C.O.D. orders. 

A SALUTE TO RADIO SHACK 

The new RADIO SHACK TRS-80 MICROCOMPUTER CATALOG indicates that RS is working hard to 
please both future and past customers. When you get your new catalog, make sure that you get the one 
with the gray and black four page insert stapled to the center of the catalog. 

The new catalog is so convincing that I feel like ordering another machine. In addition to the new 
products listed on page 70 of this Newsletter, RS has announced some new products via their catalog 
insert. 

(1 ) RS is now selling 1 6K RAM for the expansion interface for $1 99. That's a $100 reduction in price 
and does seem to eliminate most of the competition from independent companies selling 16KRAMfor 
$79»$149. By buying the $199 RS RAM's, you are keeping your guarantee. . . getting proven quality 
RAM's . . . and in an emergency have a place to complain to. 
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(2) For your CPU, a 16K Kit with Numeric Keypad. The price is $290 including installation. The 12 key 
numeric keypad allows for calculator style numeric entries (no computer functions are change). The 
keypad is placed to the right of the present keypad (where the RS emblem is located). If you already have 
16K in your CPU, RS will install the numeric keypad for $89. By the way, to cutting is involved. You are 
just given a new keyboard bezel, 

(3) The TELEPHONE INTERFACE II is$!99. This willallowyourTRS-80to act as two terminals. You 
can also send data or programs from one machine to another by telephone. H & E COMPUTRONICS will 
soon be offering programs over the telephone. 

(4) The LINE PRINTER STAND sells for $99. It matches the TRS-80 System Desk and allows for 

tractor-fed paper from a box under the stand. 

(5) A TRS-80 VOICE SYNTHESIZER sells for $399, Now your TRS-80 can talk! It attaches to any 
Level I or II system and responds to 62 phonemes to create any English word. Speaker, amplifier and 
volume control are included. A complete instruction manual and demonstration cassette come with it. 
This addition to the TRS-80 system has a fantastic potential in education and business. 

(6) New software includes Micromusic ($14.95), Level II Basic Course ($14.95), Level II Basic 
Advanced Course ($1 9.95), Double Precision Subroutines (9.95), Mailing List ($39,95), General Ledger-I 
($99.95) and Advanced Statistical Analysis ($39.95). 

Other products include line printer ribbons, fanfold paper, carrying cases, blank diskettes (with re- 
inforced rings to prevent disk crunching) and a new (or updated) disk manual. 

FROM THE CRYSTAL BALL 

PLEASE REMEMBER!!!! - OUR CRYSTAL BALL DEPARTMENT DOES NOT PRESENT VERIFIABLE 

FACT. WHAT FOLLOWS ARE RUMORS FROM WHAT WE CONSIDER TO BE RELIABLE SOURCES (or 

otherwise stated). 

THE NEW RADIO SHACK COMPUTER - This rumor comes from an extremely reliable source. RADIO 
SHACK will soon announce (possibly in March) a new computer. It may be called the TRS-70. It will 
enhance the features found in the TRS-80 and meet the needs of business men who have needs 
beyond the TRS-80. It will support diskettes capable of handling 256K each. The TRS-70 (or whatever it 
may be called) is designed to hit a market between the low priced TRS-80 and the Tandy 1 (see page 6 of 
the TRS-80 MONTHLY NEWSLETTER), 
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The new DISK MANUAL will be shipped this month. This manual (and probably many new manuals) will 
be shipped in binders. The actual format will be similar to the newsletter (3 hole-punched) allowing for 
the easy inclusion of updates and revisions. Beginners will not find much help in learning how to use 
their disk system from the manual. It will probably be along the same lines as the present manual. I did 
hear that a manual for beginners is on the way. . . or being considered. 

The 2.2 DOS is just about ready to be announced. No big changes. There are some corrections and 
improvements over the 2.1. 

The 3.0 DOS will be ready in February or March. Both the 2.2 and 3.0 disks will be sold. While 2.2 is an 
update and improvement over the original 2.0 diskette, 3.0 will have new features. The 3.0 will have an 
editor-assembler included as well as some additional utilities: (1) CHAIN»You can specify a file of 
commands to be executed in sequence. Used with AUTO, you can create a sequence of programs which 
are to be run without user interaction. (2) DEVICE-Will allow you to redefine input and/or output to the 
line printer. (3) ROUTE-routes specified I/O to a designated device. (NOTE(1), (2) and (3) in the above 
paragraph comes from information printed by CHICATRUG, a Newsletter printed by the Chicago 
TRS-80 Users Group. . . see inside front cover) 

Look for other versions of the D.O.S.. In the works are CPM and PASCAL. FORTRAN is already 
available (but not from RADIO SHACK). 

END THE DOUBLE LETTER PROBLEM 

Have you been having problems with double letters? Almost all TRS-80 users have several keys that 
often print a letter twice. Zeke Bogossian (RS store manager, White Plains Mall, N.Y.) taught me how to 
eliminate the problem. Its easy to do. I tried it. . .and it works. (1) Use a screw driver to pry off each key 
cap (of the troublesome keys). (2) Spray a little ARCHER COLOR TV TURNER CLEANER (available at 
RS for $1.59) between the contacts. (3) Snap key covers back on. 

CTR-80 CASSETTE RECORDER 

The CTR-40 and CTR-41 have been replaced by the CTR-80 cassette recorder. The CTR-80 is very 
similar to the CTR-41 . It has a tape counter and FORWARD and REVERSE that will always operate under 
manual control. It does not have a tone control. The tone has been preset to maximize computer input 
output efficiency. The actual sound quality of all three tape recorders are equal. 
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CORRECTIONS 

RANDOM ACCESS MAILING LIST PROGRAM - In an attempt to save a couple of lines of space, 
several lines were incorrectly changed Remove the RETURN commands on lines 4010 and 5120. Add 
two additional lines. 

4030 RETURN 

5130 RETURN 
An updated version of the MAILING LIST PROGRAM for disk is available from H &ECOMPUTRONIXfor 
$19,95 (on diskette). The updated version includes a faster sorting routine and eliminates the space 
between first and last name. It also includes an INVOICING routine. 

16-DIGIT ACCURACY FOR SQUARE ROOTS (Page 106) - Change the following lines to: 
40 Y#=(X#/Y#+Y#)/2 
60 IF Y#=A#GOTO80 
70 A#=Y#:GOTO 40 

INVENTORY CONTROL (Page 82) - The line between lines 5010 and 5020 should begin with RA(I) not 
A(l). The line between lines 5110 and 5120 should begin with RA(I) not A(l). 

Page 96 top should read - IT WILL BE ASSUMED THAT YOU DO NOT HAVE RADIO SHACK RAMS. 
Insert the word NOT between DO and HAVE. 

RADIO SHACK TO OFFER LOWER CASE OPTION? 

New RS TRS-80 COMPUTERS will have plug-in chips. This means that reparis and modifications can be 
made instantly (and possibly in the store). This also opens the possibility of quick conversion to lower 
case letters (see Issue #6). 

MODIFICATION TO THE BAR GRAPH PROGRAM 

From Gary L. Wood (#7706) - "Concerning your BAR GRAPH program in your Issue #5, November, 1978. 
When the program is run, an error message appears about 30 seconds after the bar graph is completed. 
This can be avoided by changing step 275 to read: 

275 GOTO 275 
and then omitting step 280, which will freeze the display. Also, at most 9 classes can be displayed unless 
you add a semi-colon to the end of line 270. Then, 10 classes can be displayed." 

THE TEXAS INSTRUMENTS TI810 PRINTER 

From David Bradfield (#7789) - "Just a note. In your August-September Issue you were talking about 
hooking up a TRS to a SELECTRIC. Well, I just hooked up a TEXAS INSTRUMENTS 810 LINE PRINTER 
to my TRS. TheTI810 is a bydirectional 150 character per second printer that will take 15 1 /a inch tractor 
fed paper Works great, I bought the parallel port option for the TI-81 printer and the Centronics cable. 
Just plugs right in. The printer, by the way, sells for about $1900. 
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CAUTION ABOUT THE RAM TEST 

The RAM TEST found in this issue requires some additional instructions. DONT USE THE RAM TEST 
WITH DISK BASIC. Upon turning on your machine, respond to the MEMORY SIZE? with 18000 (instead 
of pressing ENTER). PRESS ENTER after typing in 18000. 

$100 CASH REWARD 

. . .For information leading to the successful interfacing of an 80 column card reader to a TRS-80 LEVEL 
2/32K/2 DISC system with an RS232 Card in expansion interface. . Prefer to use a "Documation" 
reader. . .however, will try any brand. . .For more information contact JIM GILLEM. . .CALL COLLECT 
(415) 935-2500 or NITES (415) 938-0307. 

TRS-80 DISC INTERFACING GUIDE 

A TRS-80 DISC INTERFACING GUIDE is available for $5 from MICRO APPLICATIONS, 24232 Tahoe 
Court, LaGuna Niguel, CA 92677. The book is highly technical and would only be of interest to 
advanced programmers. 

INTERFACE MODIFICATIONS 

There are now two modifications available for the interface. The first one makes it easier to load tapes. 
The second solves many disk problems. New interfaces come equipped with the new modifications. If 
your disk keeps returning you to the D.O.S. mode. . .or if you keep getting alot of I/O errors, you should 
bring in your interface for the modification. 

CREATIVE GRAPHICS 

BY DENNIS MEIXSELI "Here is a very short program that I'm sure your readers will want to try out. It is 

designed to give the user a chance for some creative graphics. Use the arrow keys with and without the 
shift key. 

O ULo 

10 POKE C,32 

15 A$=INKEY$ 

20 PRINT A$; 

30 A=PEEK (16417) 

40 B=PEEK (16416) 

50 OA*256+B 

60 POKE C, 42 

70 FOR T=1 TO 20: NEXT 

80 GOTO 10 

OUR NEW WORD PROCESSOR 

Next month we will publish our new word processor for disk or the program is available FREE of charge 
on cassette with your subscription renewal. 
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SEND US YOUR PROGRAM 

If your program is published by the TRS-80 MONTHLY NEWSLETTER, it will appear in our MASTER 
PAC II. You will also receive a free copy of the MASTER PAC II. 

BOOKS FOR LEVEL-II BEGINNERS 

BASIC FOR HOME COMPUTERS-A SELF-TEACHING GUIDE is one of the best. The book is published 
by Wiley and sells for only $5.95. It is easy to understand and is very comprehensive. 

INSTANT BASIC by Jerald R. Brown and published by Dilithium Press is another essential book for 
beginners. It's easy to follow and very comprehensive. 

THE ABOVE TWO BOOKS WERE CHOSEN VERY CAREFULLY. There are hundreds of books thatteach 
you how to use basic. The above two are superior to many other BASIC teaching guides. 

COMPUTER RESOURCE BOOK-ALGEBRA by Thomas A. Dwyer and Margot Critchfield and published 
by Houghton Mifflin is highly recommended for anyone teaching algebra or students taking an algebra 
course. 

DRESSING UP AND SPEEDING UP 

The article appearing on the following page was reprinted from the TRS-80 USERS GROUP 
NEWSLETTER. You can subscribe to the TRS-80 USERS GROUP NEWSLETTER by sending $24 to the 
address below. 

TRS-80 USERS GROUP NEWSLETTER 

Published by 
Microcomputer Consultants 

629 Dixie Lane 
South Daytona, Florida 32019 
Telephone 1-904-767-1319 
MONTHLY FEATURES: 

•' CURRENT DEVELOPMENTS . . .Keeps you abreast of the latest developments. 

• PROGRAMS . . .Complete programs for business and personal use. CAI (Computer Assisted 

Education) - Scientific » Financial - Bookkeeping - Games - Etc. 

• PROGRAMMING . . .Each month a continuing tutorial program in basic from beginner to advanced. 

Get the most out of your Level II. Also a course in Z-80 machine/assembly language. 

• APPLICATIONS . . The how to section foryourtechnicai applications. Interfacing various peripherals 

- Tips - Hints - Short cuts - Using dual cassettes - Mini disk and Disk Operating System - Various 
Printers - Etc. 

• INPUT/OUTPUT . . .Answers to your questions and problems - Feed back from other members. 

• RANDOM ACCESS . . .Share and trade programs with other members. 

• PRODUCT NEWS . . .What's new/used and available - advertise to sell or buy. 

• MEMBERSHIP DISCOUNTS . . .Special member discounts - Due to Microcomputer Consultants 

volume buying we will offer substantial discounts to our members on Ram memory chips - 
Cassette tapes - Floppy diskettes - Printers - books - Etc. 
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DRESSING UP AND SPEEDING UP 

by 
GARY WILLIS and MERLE M. HARRIS 

In most of your business application programs it is standard procedure to have a "menu" or "selection 
routine" printed on the video screen along withagraphics border of some sort. The Radio Shack TRS-80 
LEVEL II has some special graphic character sets stored in ASCII CODE from 129 to 191. (Refer to your 
owners manual - page C/2). To see what these look like, type in and RUN the short program below. 

10CLS 

20 FOR N=129to 191 

30 FOR Z=1 to 500:NEXTZ 

40 PRINT"ASCII CODE#";N 

50 FOR X=1 to 64 

60 PRINT CHR$ (N); 

70 NEXTX 

80 NEXTN 

90 END 

After looking at the graphics type NEW to clear the above program and type and RUN the below listed 

program. 

180 CLS 

190FORX=/to127 

194RESET(X,16) 

196 RESET(x,46) 

200 SET(X,jZf) 

205 SET(X,15) 

210SET(X,47) 

220 NEXTX 

230 FORY=JZ!T047 

240 SET(^.Y) 

245 SET(1,Y) 

250SET(127,Y) 

255SET(126,Y) 

260 NEXTY 

270 PRINT@655, "PRESS BREAK KEY TO END DISPLAY"; 

280 GOTO280 

The above procedure gives a nice border and is used by a lot of programmers. But let's look at how we 

DRESS UP and SPEED UP by using the ASCII CODES. Type NEW to clear the above program and type 

and RUN the below listed program. 

290 CLEAR 500 

300 CLS:FOR 1=1 to 15: PRINTTAB(jzf)CHR$(149);:PRINTTAB(62)CHR$(149);+CHR$(24):NEXT 

310 PRINT@0,STRING$(62,183);:PRINT@321,STRING$(61,131);:PRINT@96O,STRING$(63,131); 

320 PRINT@655,"PRESS BREAK KEY TO END DISPLAY"; 

330 GOTO330 
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CATALOG 

by 
JEFF STANTON 

The program below was submitted by Jeff Stanton (#1 249), Chairman of the Science Department of the 
Pennfield Schools. 

"I am enclosing a short program that may be of use to those TRS-80 owners who have a disk drive. 

One of the more annoying aspects of the disk operating system is the fact that, in order to find out what 
programs are present, one must enter CMD"S" (to get into the operating system), then DIR (to get a 
directory listing), and then reload BASIC before the program can be loaded and run. 

My program, which I call CATALOG, is run immediately after powering up and loading BASIC (by enter- 
ing RUN "CATALOG"), and allows the user to select and immediately execute any program contained 
on the disk. 

The program can be easily modified to accommodate additional programs by changing the number of 
programs in line 50 and 130, and adding the program names in additional DATA statements. The names 
in the enclosed listing happened to be those currently on my second diskette. 

I hope you can use this program and that it will encourage other readers to submit programs designed for 
disk-based systems." 

10 DIM A(35), N(35), A$(20) 

20 PRINT TAB(20); "* CATALOG FOR DISK D-2 *" 

30 PRINT "THIS DISK CONTAINS THE FOLLOWING:" 

40 PRINT 

50 FOR N=1 TO 10 

60 READ A$(N) 

70 PRINT N;"-";A$(N), 

80 NEXT N 

90 PRINTPRINT 

100 PRINT TAB(5); "EXECUTE WHICH PROGRAM"; 
110 INPUT A 
120 LET A=INT(A) 
130 IF A>10THEN 100 
135 CLS 
140 RUN A$(A) 

200 DATA "ADDSUB", "CASHREG", "CUPIDITY", "GRADEAVG", "GRMATH" 
210 DATA "MATHPRAC", "MATHTEST", "MATHWORK", "MULTPRAC", "QUADRAT" 
- 400 END 
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ADDING TIME 

by 
PRIMERO CONSULTANTS INC. 

While the computerized adding of dollar amounts is simple under the decimal system of notation, the 
adding of units of time becomes more complicated because of the type of notation whereby 60 seconds 
equals 1 minute, 60 minutes equals 1 hour. 

One method of adding minutes and seconds using the decimal system would be to convert the number 
of seconds to decimal portions of a minute. This, however, lends itself to error through rounding. 
Depending on the degree of rounding, 31 seconds, for instance, becomes .516667 of a minute, and could 
become 1 full minute. Adding two 31 seconds under this system, therefore, would produce an answer of 
2 minutes, whereas in reality it is 1 minute and 2 seconds. 

The following sub-routine overcomes that problem. Two points should be observed. In entering the 
number of minutes, if the number is less than 10, a leading zero should be inserted. Thus 9 minutes must 
be entered as 09. The second is that the minutes-and-seconds should be entered in the foremat 09.23 
not 09:23. 

In order to illustrate this sub-routine, an arbitrary number of 5 has been selected for the number of 
"time"s to be added. 

10 FOR Q = 1 TO 5 

20 INPUTTJURATION ";C$(Q,1) 

30 NEXT 

40 FOR Q=1 TO 5 

50C1$=RIGHT$(C$(Q,1),2) 

60 A=VAL(C1$) 

70 X=X+A 

80C2$=LEFT$(C$(Q,1),2) 

90 B=VAL(C2$) 
100 Y=Y+B 
110 NEXT 

120 IF X>59 THEN X=X-60: Y=Y+1: GOTO 120 
130 PRINT'TOTAL DURATION IS";Y;":";X 
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LINE RUNUMBER PROGRAM 



THE PROGRAM BELOW WAS SUBMITTED BV GERALD SRBIN. THE PROGRAM 
WORKS WITH ANV 4K, ±6K, 32K OR 48K COMPUTER USING LEVEL II BASIC. 
IT WILL NOT WORK IN DISK BASIC WITHOUT A MODIFICATION IN LINE 
10000 <NOT AVAILABLE AT THIS TIME>. THE PROGRAM WILL MODIFV AL L 
LINE NUMBERS. IT WILL NOT MODIFV LINE NUMBERS CONTAINED IN 
GOTO AND GOSUB COMMANDS. 

THERE ARE TWO WAVS TO USE THE PROGRAM. 

METHOD 1 

WRITE ANV PROGRAM. MODIFV THE LINE NUMBERS. ENTER THE PROGRAM 
BELOW AFTER WRITING VOUR PROGRAM. ENTER RUN ±0800. ENTER THE LINE 
NUMBER THAT VOU WISH THE RENUMBERING TO START AT, FOLLOWED BV A 
COMMA, FOLLOWED BV THE INTERVAL THAT VOU WOULD LIKE BETWEEN EACH. 
FOR EXAMPLE, TO NUMBER VOUR LINES STARTING AT 10 WITH AN 
INTERVAL OFF 28 BETWEEN EACH LINE, ENTER 18,20. 

METHOD 2 

FIRST ENTER THE PROGRAM BELOW <CLOflD FROM TAPEX . THEN 
WRITE VOUR PROGRAM. TO RENUMBER VOUR PROGRAM LINES ENTER 
1O00O AND FOLLOW INSTRUCTIONS AS IN METHOD 1 ABOVE. 

OLD AND NEW PROGRAM LINES ARE DISPLAYED ON THE VIDEO. IT IS 
IMPORTANT TO REMEMBER THAT VOU WILL HAVE TO MANUALLV MODIFV 
ANV LINE NUMBERS USED AFTER GOTO AND GOSUB INSTRUCTIONS AL ^n 
MAKE SURE THAT THE LINE NUMBERS THAT VOU USE DO NOT CONFL IPT 
WITH THE LINE NUMBERS BELOW. 

18880 K=17129 
18818 DIM AC 488, 2> 
18828 INPUT LI, L2 
1883:8 FOR I~8 TO 3 

18848 x -•: i > =peek < k+ i > -. next 

18858 L=XO::'*256+X<2> : IF L~>18888 G0T018148 

18868 A < 1 8, 1 ;■ =L : A < I 8, 2 > =L1 : I @= 1 8-i-l 

18878 G0SUB18118 

18888 POKE K+2, L3 

18898 POKE K+3, L4 

18180 K-X < 1 :> *256+X <. > : GOTO18830 

18118 L4= I NT C L.l/256 > 

18128 L3«L1-L4*256 

10133 L1=L1+L2 : RETURN 

1014© FOR IX=0 TO 10: PRINT A< IX, 1 >.; fl< IX, 2> : NEXT 
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THE PROGRAM BELOW CRN BE USED WITH ANY 1.6K, 32 1< OR 
4 8 K R R D I O S H R C K C O M P U T E R . "I" H E P R O Q R R M W R S O B T R I N E D 
F R M R R D I O S H R C K C 1-1 P U T E R S E R V I C E S . 

1.8 DEFINT I 

2 O C I.... S : : P R I N "I" ' ' 1 6 K T E S "I" ' ' 

3 © P E M •••-• F O R T E S T I N G 1. 6 K R R M 

5© FOR I =- 1.8801. TO 32766: GOSUB 1.1.0: NEXT I : GO SUB 1.1. 8 

6© REM-FOR TESTING 32K RAM 

78 PRINT"32K 'TEST" : FOR I =--3:2768 TO •-1.63:85 

75 GOSUBlie : NEXT I 

8 8 R E M -• F O R T E S T I N G 4 8 K R R M 

9 8 P R I N T ' ' 4 8 1< T E S "I" ' ' : F R I ~ -• 1. 6 3 8 4 T 1. : Q O S U B 1 1. 8 : N E X T 

1.08 END 

1.1.0 PRINT ©448, I.; 

1.1.5 POKE I, 170 

1 2 O I F P E E K < I > <: > 1 7 8 T H E N P R I IM "I" I j : R E "I" U R N E L S E R E T U R N 



N R M R I.... C U R V E D E M O N S T R R T 1 N 



THE PROGRfiM BELOW WHS SUBMITTED BV GRRV WOOD •:.' MEMBER 

N U M B E R 7 7 © 6 . I T G R R P H I C R I.... L V E E P R E S E N T S T H E N O R M R L C U R V E 

B V D R O P P I N G R R N D O M •' B R I C !< S " O N T O Fl P 1 1.... E . 

!;;;; REM *** R NORMAL DISTRIBUTION BV GARY WOOD '+-+■•* 

10 CLS : RANDOM 

20 FOR X-l TO 1.27' 

30 SET <X.. 0>:SET < X, 45 > : NEXT X 

58 SET 1 '! 64.« 46 '.'' 

£.0 x=*64 : FOR P =■-::!.. TO 1.27 

95 IF POINTTP.. 2> THEN 399 

97 NEXT P 

1.00 FOR V=l TO 44 : RESET OG V-l > 

1 1 E = R N D < 3 > : X = X + < R - 2 > 

1.30 IF POINT'::X, Y> THEN SET < X-I-2--R.. V-l!:' ELSE 2O0 

1 4 © F O R W ~ 1. T O S 9 : I F P O I N T < X + 2 ~ R , V •+• W -- 1 > T H E N 9 O 

1.50 RESET' <X-i-2 R.. Y+W--2> : SET CX+S-R.. Y+W-l. > : NEXT W 

1 6 O I F P O I N T < X , V > "I" H E N 9 © 
200 SEKK, V> : NEXT V 
38© GOTO 98 
999 GOTO 39'9 
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QRRPHICS ON THE TR'S-88 
BV 
ALBERT S. ADAMS 



TO DISPLAY, ONE AT A TIME, THE ASCII GRAPHICS CODES, 129-191. 
DISPLAY GIVES THE ASCII NUMBER, THE GRAPHIC EFFECT BV ITSELF, 
THEN INSIDE A BOX TO SHOW RELATIVE POSITION OF THE SIX IN A 
BOX, A ONE LINE, A TWO LINE. AND A THREE LINE RUN OF THE GRAPHIC 

18 CLS 

20 V=129 

38 POKE 154O0, 1.91 

4© PRINT864, V 

58 POKE 15442, V 

68 POKE 15463, 191 

70 POKE 15464, V 

88 POKE 15465, 191 

98 POKE 15528, 191 

188 FOR X-15631 TO 15666 

118 POKE X, V 

128 NEXT 

138 FOR X=15823 TO 15858 

148 POKE X, V 

158 NEXT 

168 FOR X=15887 TO 15922 

178 POKE X, V 

188 NEXT 

198 FOR X=16879 TO 16114 

200 POKE X, V 

218 NEXT 

228 FOR X=16143 TO 16178 

238 POKE X, V 

248 NEXT 

258 FOR X=16287 TO 16242 

268 POKE X, Y 

278 NEXT 

288 PRINT0960, "TO CONTINUE, PRESS ENTER".; 

298 INPUT Z 

388 Y=Y+1 

318 IF V=192 END 

328 CLS 

338 GOT038 

348 END 
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FEDERAL INCOME TAX (1978) 

by 
DR. PETER SHENKIN 

The Income Tax Package developed here consists of three separate programs. The first program com- 
pletes FORM 1040 t Page 1 and Schedule B (if necessary). The second program completes Schedule A 
(itemized deductions). The third program completes FORM 1040, Page 2. In the present version all other 
forms and schedules must be prepared before their totals are needed on FORM 1040. 

In order to use this Package it is absolutely necessary that you have the appropriate Federal Tax Forms 
and Schedules in front of you. These programs do not actually print out results on the line printer but 
they do tell you what numbers to place on various lines of the different forms and schedules. The proper 
order of execution of the three programs is 1 . FORM 1040, Page 1 : 2. SCHEDULE A: and finally 3. FORM 
1040, Page 2. 

There isn't enough room in this issue of the Newsletter to go through an entire tax return so we shall 
just go through the beginning of FORM 1040, Pagel of an imaginary return. This, however, is sufficient 
to display all special modes of program operation. Except for these few points, all that is necessary to 
compute your tax bill is the ability to follow written directions on your CRT screen and on the instructions 
in the Tax Package sent to all taxpayers by the IRS. On trying these programs, you will probably find that 
it will no longer be necessary for you to stay up ail night computing your tax bill. These programs are a 
great aid in speed and accuracy. 

The return we shall begin to complete on these pages is that of a person with three jobs. The wages for 
the jobs were $20962.38, $2543.99 and $3962.11. This person had interest income of $135.99 from the 
Fl RST BANK and of $350.00 from the SECOND BANK. Dividend income consisted of $221 .63 from some 
AT&T stock. There is no other income. 

In the following all machine queries and output will be CAPITALIZED, all of our replies to machine 
queries will be in ' ' marks and all our comments will be in (comment) - parentheses. Let's begin and 
RUN the FORM 1040, Pagel: 

1040 AND SCHEDULE B COMPUTATION 
PRESS ENTER TO BEGIN? (We press ENTER) 

INCOME AMOUNTS 

INPUT WAGES, SALARY, TIPS, & OTHER COMPENSATION, 1 BY 1 OR SUMMED 

SEE 1040 INSTRUCTIONS, P.8 FOR CLARIFICATION 

ENTER 99999 WHEN DONE OR 88888 TO CHANGE 

AMOUNT 1=? '20962.38" 
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AMOUNT 2 =? '135.99' 

AMOUNT 3 =? '88888' (Amount 2 was in error. It should equal 2543.99) 

WHICH NUMBER DO YOU WANT TO CHANGE? '2' (Change the amount with the error.) 

COST 2 =? '2543.99' 

AMOUNT 3 =? '3962.11' 

AMOUNT 4 =? '99999' (we are at the end of our list. Many inputs consist of a list of several quantities 

which must be summed. The machine does the summing and tells where to 

print the results as follows:" 

FILL IN THE FOLLOWING LINES ON FORM 1040 
LINE NO. AMOUNT 

8 *$27468.48 

PRESS ENTER TO CONTINUE? (We press ENTER) 

ENTER INTEREST INCOME AMOUNTS 1 BY 1. 

SEE 1040 INSTRUCTIONS, P.9 FOR CLARIFICATION 

ENTER 99999 WHEN DONE OR 88888 TO CHANGE 

AMOUNT 1 =? '135.99' 

AMOUNT 2 =? '350.00' 

AMOUNT 3 =? '99999' 

FILL IN THE FOLLOWING LINES ON FORM 1040 
LINE NO. AMOUNT 

9 ***$485.99 

THESE AMOUNTS MUST BE REPORTED ON SCHEDULE B 

SCHEDULE B LINE 2 SHOULD BE $485.99 

PRESS ENTER TO CONTINUE? 

We press ENTER. The statement about Schedule B was printed because total 
interest exceeded $400. The itemized interest amounts must be entered on 
PART I of Schedule B along with the names of the payers. In general, when a 
long list of items must be entered, not corresponding to numbers on the 
Forms, the program will do necessary arithmetic but it is up to the program 
user to enter the individual items. The program, as done above, does direct 
input to all numbered lines. 

ENTER ORDINARY DIVIDENDS 1 BY 1. 

SEE 1040 INSTRUCTIONS, P. 9 FOR CLARIFICATION 

ENTER 99999 WHEN DONE OR 88888 TO CHANGE 

AMOUNT 1 =? '221.63' 

AMOUNT 2 =? '99999' 

INPUT CAPITAL GAINS DISTRIBUTIONS?'^ ( We could have just pressed ENTER without the for 

additional speed.) 
INPUT NONTAXABLE DISTRIBUTIONS? '0' 

(And so on. There should be no problems in doing the rest of this program and the other two. 
GOOD LUCK!!!!!! GET A HUGE REFUND!!!!!!!!!!!!!!!!!!!!!!! 
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~. X P A N S I N I N "I" E R F R C E T E S "I" S E Q U E IM C E 



THE PROGRAM BEL ON IS APPARENTLY ONE OF THE TESTS USED 

B V R Fl D I O S H fl C l< R I!!!: P fl I R C E N "I" E R S "I" C H E C K U "I I" H E P E R 1-1 "I" I O N S 

O F T H E E X P A N S I O N I N T E R F R C E . T H E P R O G R fl 11 R P P E fl R E D N O N E 

O F O U R D I S l<: E "I" "I" E S W H E N U R D I S K S V S 1" E M W fl S R E F R I R E D 
B V R I.... O C R I.... R E P fl I R C E N T E R . fl L I.... I N S T R U C T I O N S fl P P E fl R 

WITHIN THE PROGRAM. 

1. © C L S : P R I N T 1 8 , ' ' IE X P A N S I O N I N 1" E R F R C E T E S T S E Q U E N C E S . ' ' 

12 PRINT0:i:<2, "1. LONER 1.6K MEMORY TEST'. " 

1,4 PRINT ©196.. "2. FULL 32K MEMORY TEST'. " 

1. 6 P R I N T 2 6 8 , ' ' 3 . P R I N 1" E R T E S T S E Q U IE N C E . ' ' 

1 S P R I N T 3 2 4 .. ' ' 4 . P R I N "I" IE R I N T ER F fl C IE D E B U Hi G E R . ' ' 

2 8 P R I N "I" 3 S 8 .• ' ' 5 . F L O P P V C O N T R O L L IE R I . C . C H IE C i< . ' ' 

22 PRINT0452, "6. NOTES ON EXPANSION INTERFACE. " 

2 4 P R I N "I" II' 5 S © .- ' ' I N S E R 1" D I Q I T C R R IE S P N D I N G T ' ' 

2 6 P R I N T 6 4 4 , ' ' D E S I R E D M O D U I.... IE & D E P R E S S •" E N '"I" E R "" . " 

28 PR INTO 7 72, "TO EXIT ANY OF THE ABOVE, DEPRESS "XP " 

2 3 p r i im "i" e :;;• e , ■ • t o s t o p < n n d t h e n c o n t i n u e > , h :i: t s h i f t -• . " 

38 INPUT Al. : IF A 1.^6 THEN 180 

48 IF FliOl THEN 58 

4 5 C I.... S ; P R I N "I" ± , ■ ' E X P fl N S 1 N I O W E R 1. 6 K M E M O R V "I" E S T . ' ' 

4 7 M ™ 1 S 3 8 4 : Q O T 2 8 8 

50 I FTI±<:>2 THEN68 

5 5 C I.... S : P R. I N T 1. 8 , " F : " U L L E X P A N S I O N 3 2 K M E M O R V T E S T . ' ' 
57 l v l-~8 : GOT' 02 88 

60 IF A :!.<::> 3 THEN 78 

6 5 C L S : P P. I IM "I" 1. 8 , ' ' P R I N "I" E R T IE S "I" S E Q U E N C E . " : G 1" O 3 O © 
70 IF A1.04 THEN 80 

7 5 C L S : P R" I N "I" 1. © , ' ' P R I N T E R I N T E R F fi C E D E G U G G E R . ' P Q O "I" O 3 5 O 
36 IF R105 THEN TOO 

8 5 C L S : P R I N "I" 1. , ' ' F L O P P V C O N "I" R O I.... I.... E R I . C . C H EI C l< . " : G O T O 4 8 8 
1 © C I.... S : P R I N I 1. , ' ' E X P Fl N S I O IM I IM "I E R F A C E IM O T E S i ' ' 

1 2 P R I I'M "I" 1 2 8 , ' ' 3 2 7 6 8 » 8 8 8 8 H E X EI X P R N S 1 N I IM "I" E R F A C IE R Fl M 

LOWER LIMIT. " 
1. 8 3 P R I IM "I" :1 S 2 , ' ' 4 3 ± 5 1 = B F F F H E X E X P . 1. 6 1< R R M U P P E R L I M I T 

ADDRESS. " 
:1 8 4 P R I IM "I" 2 5 6 , ' ' 6 5 5 3 5 = F F F F H E X E X P . 3 2 K R Fl M U P P E R L I M I "I" 

A D D R ESS. " 
:1 8 5 P R I IM "I" 3 8 4 , ' ' 1 4 3 8 4 ~ 3 7 IE O H E X D R I V E S E I.... E C T I.... R T C H < W R I T E 

$< INTERRUPT BITS. " 
.1 B G P R I IM 1" © 5 1 2 , ' ' 1. 4 3 8 3 ~ 3 7 E 4 H E X B 8 I S C fi S S E T "I" E S H I T C H 

C WRITE ONLY>. " 
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10 REM *** INCOME TAX FORM 1848 FIND SHEDULE B*** 

28 REM **.+BV*** 

30 REM ***DR. PETER SHENKIN*** 

280 CLE: PRINT "1040 AND SCHEDULE B COMPUTATION" 

218 PRINT "PRESS ENTER TO BEGIN".: : INPUT Z9 

228 CLS : GOTO F888 

130© REM 

1318 PRINT : PRINT " INPUT ERROR ! TRV fiGFUN ! " i FOR K==1T0388 : NEXT K 

1328 RETURN 

1358 REM DELAY SUBROUTINE 

1360 FOR I ==110588; NEXT I 

1378 RETURN 

1480 REM 

141.0 PRINT "ENTER 99999 WHEN DONE OR 88888 TO CHANGE"" 

1428 RETURN 

1458 REM RESET COUNTER 

1468 I =l : FOR J=8T0G8 : C < J > =8 : NEXT J 

1478 RETURN 

1588 REM SUM VARIABLES 

1510 T=8:F0R J=8T0I . T=T+C< J> : NEXT J 

1528 RETURN 

1558 REM INPUT AMOUNT SUBROUTINE 

1568 PR I NT "AMOUNT ".; I.; " = ".; : INPUT C<I> 

1578 IF CO} =99999 1 = 1-1 

1575 IF CI I > =88888 1=1-1. GOSUB 1888 

1588 RETURN 

1688 rem format variables 

1618 fi-:t:< = " line no. amount c 

1615 F*Q) = " ## **$####. ##" 

1620 F*<:2> = " XX **$####.##» 

1650 RETURN 

170O REM 

1710 INPUT" PRESS ENTER TO CONT INUE'U Z9 

1728 RETURN 

1758 REM PRINT SUBROUTINE 

1768 CLS: PRINT "FILL IN FOLLOWING LINES ON FORM 1848" 

1778 PR I NTUS I NG F* < 1 > .; Z7* : RETURN 

1888 REM CHANGE SUBROUTINE 

1818 PRINT: INPUT "WHICH COST NUMBER DO YOU WANT TO CHANGE", 21 

1820 IF Zl<8 OR ZlOIN'TTZl} OR Z1>I GOSUB 1300 : GOTO 1810 

1830 PRINT "COST ".; Zl.= " = ".; : INPUT CTZIO 

1848 PR I NT : RETURN 

7088 REM FORM 1848 COMPUTATION 

7882 DEFDBL. C, T, B 

7885 DIM C':'60> , TX66 ':> 

7810 PRINT "INCOME AMOUNTS" 
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7828 PR I NT "INPUT WAGES, SALARV, TIPS, & OTHER COMPENSATION 

i BV i OR SUMMED 
7010 PR I NT" SEE 1848 INSTRUCTIONS, P. 8 FOR CLARIFICATION 
7040 GO SUB 14O0 . GO SUB 1458 
705O GOSUB 1550 

7868 IF C<I*1>=99999 GOTO 7030 
7O70 I - I 4 1 : GOTO 7858 
7' 0SO GOSUB 1500 
7090 TOEO-T 

7100 GOSUB 1600 : GOSUB 175© : PR I NTUS I NG F* < 2 > .; 8, T «; 8 > 
7110 GOSUB 1700 

720O CLS: PR I NT "ENTER INTEREST INCOME AMOUNTS 1 BV 1. 
7210 PRINT 11 SEE 1848 INSTRUCTIONS, P. 9 FOR CLARIFICATION 
7220 GOSUB 1480: GOSUB 1458 
723:8 GOSUB 1558 

7 2 4 I F C < I + 1 ? =999 9 9 G T 7 2 6 8 
7258 I = I +1 ; GOTO 7238 
7268 GO S U B 1 588: T < 9 > - T 

7265 GOSUB 1758 ; PR I NTUS I NG F$ -: 2 > s 9, T C 9 > : PR I NT 
7278 IF T>=488 PRINT; PRINT "THESE AMOUNTS MUST BE REPORTED 

ON SCHEDULE B 
,-'288 IF T>488 PRINT "SCHEDULE B LINE 2 SHOULD BE $".iT 
7298 GOSUB 1788 

7380 CLS: PR I NT "ENTER ORDINARV DIVIDENDS 1 BV 1. 
7310 PR I NT "SEE 1048 INSTRUCT IONS, P. 9 FOR CLARIFICATION 
7328 GOSUB 1488 : GOSUB 1458 
7338 GOSUB 1550 

7340 I F C < I +1 > =99999 GOTO 7368 
7358 1 = 1 -KL ; GOTO 7330 
7 3 6 O G S U B 1 5 8 8 : B < 4 > = T 

7378 PR I NT ; I NPUT " I NPUT CAP I TAL GA I NS D I STR I BUT I ONS " ; B >; 5 > 
7380 I NPUT " I NPUT NONTAXABLE D I STR I BUT I ONS " ,; B < 6 > 
/ 3 9 8 B < 7 > = B < 5 > + B < 6 > : B «; 8 > = B < 4 > - 8 < 7 > 
7488 IF B<8><480 GOTO 7450 

7410 PRINT "SCHEDULE B PART II MUST BE COMPLETED. " 
7428 PRINT: PR I NT "FILL IN FOLLOWING LINES ON SCHEDULE B" 
7430 GOSUB 1778 

7448 FOR J=4 TO 8 ; PR I NTUS I NG F«2> ; J, B< J> : NEXT J 
7445 GOSUB 1788 

7458 PRINT: INPUT "INPUT VOUR EXCLUSION AMOUNT" ; B< 9 ;> 
7468 T'::i0>=B<8::<-*B'::9> : IF T<i8><8 THEN T<18:>=8 
7470 GOSUB 1758 : PR I NTUS I NG F* < 3 > .; " 18A " , B < 8 > 

7488 PR I NTUS I NG F* < 3 > .; " 18B " , B < 9 > : PR I NTUS I NG F* < 3 > .; " 18C " , T <'; 18 > 
7 5 8 8 G S U B 1 7 8 8 

7518 CLS: PRINT" INPUT S & L INCOME TAX REFUNDS<IF ITEMIZED:* 1 BV 1 
7528 GOSUB 1488 : GOSUB 1458 
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75_<y 

7548 
7550 
756@ 
7570 
7588 
7598 
7608 
7618 
7615 
7620 
7625 
7630 

7635 
764@ 

7645 
7650 
7660 
7670 
7680 
7690 
7708 
7718 
7728 
7730 
7748 
7758 
7888 
7820 
7830 
7840 
7850 
7860 
7878 
7838 
7898 
7988 
7910 
7920 
7938 
7948 
7958 
7968 
79?^ 



GOSUB 1558 

I F C < I +1 > -99999 GOTO 7568 

1=1+1: GOTO 7538 

GOSUB 1588:T<11>™T 

PRINT 

INPUT" INPUT TOTAL RLIMONV RECEIVED".; T< 12 > 

INPUT" INPUT BUSINESS INC0ME<L05S>-SCHEDULE C LINE 34".; T<13> 

INPUT "INPUT CAPITAL GRIN<OR LOSS > -SCHEDULE D LINE 23, 24".; T'M4 :« 

PRINT: PRINT" INPUT TAXABLE PART OF CAPITAL GAINS DISTRIBUTIONS 

PRINT "NOT REPORTED ON SCHEDULE D<SEE P. 9>"; : INPUT T<15> 

PRINT: PRINT" INPUT NET GAIN<L05S> FROM SUPPLEMENTAL SCHEDULE 

PR I NT "OF GAINS AND LOSSES < ATTACH FORM 4797 >".; : INPUT T<16> 

PRINT: PRINT" INPUT FULLV TAXABLE PENSIONS & ANNUITIES NOT REPORTED 

PRINT"ON SCHEDULE E"; : INPUT T< 17 > 

PR I NT : PR I NT " I NPUT PENS I ONS, ANNU I T I ES, RENTS, ROV ALT I ES, P ARTNER5H I P'~< 

PR I NT "ESTATES, TRUSTS, ETC. (ATTACH SCHEDULE E>"; : INPUT T»:*lft':» 

PRINT: INPUT" INPUT FARM INCOME OR LOSS < SCHEDULE F>";T<19> 

CLS: PR I NT "I NPUT OTHER INCOME 1 BV 1 OR SUMMED-:: P. 10 INSTRUCTIONS:' 

GOSUB 1400 : GOSUB 145© 

GOSUB 1558 

IF C<I*1>^99999 GOTO 7718 

I =1+1. GOTO 7688 

GOSUB 1588 : T < 20 > =T 

T=i0 ; FOR j«s TO 20 : T=T+T < J > : NEXT J : T < 21 > =T 

GOSUB 1750 

FOR J=l 1 TO 21 : PR I NTUS I NG F* < 2 > ; J, T CJ > : NEXT J 

PRINT: GOSUB 170O 

CLS : PR I NT " ADJUSTMENTS Tti I NCOME " : PR I NT 

INPUT" INPUT MOVING EXPENSE (ATTACH FORM 3983: > m^?^ 

I NPUT " I NPUT EMPLOYEE BUS I NESS EXPENSES < FORM 21 fl£ > " . T { 2~: ':. 

INPUT" INPUT PAYMENTS TO AN IRA<P. 10 INSTRUCTIONS V ; T*r 24') 

INPUT" INPUT PAYMENTS TO A KEOUGH PLAN"; T<25> 

INPUT" INPUT SUM OF EARLY WITHDRAWAL INTEREST PENALTIES"; T*'?^ 

I NPUT " ] NPUT AL I MON Y PA I D " ; T k 27 > 

T-@ . FOR 1-22 TO 27 : T-T+T »: J > : NEXT J" ; *|" •:; 28 > ~T 

T<29>-T<21 >-T<28:' 

INPUT" INPUT DISABILITY INCOME EXCLUSION MG8) 

T«;3i>«T':;29>-T»::;?0> 

GOSUB 1750 

FOR J-22 TO 31 : PR INI USING F$<:2>; J.. Tc J> ; NEXT J 

PRINT: PRINT 

AGJ-T01> ;REM ADJUSTED GROSS INCOME 

F#.;4> = n V0UR ADJUSTED'' GROSS INCOME = ***####. ##» 

PR I NTUS I NG F # < 4 ;« ; T k 31 > 
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:FOR K»1TO300 : NEXT K 



IS REM- * INCOME TAX COMPUTRTIONS-1040 PAGE 2*** 

20 REM 

300 CLS: PRINT "TRX AND PAYMENT COMPUTATION - 1848 P. 2" 

310 PRINT "PRESS ENTER TO BEGIN".; : INPUT Z9 

-*20 CLS : GOTO 3000 

1300 REM 

1310 PRINT: PRINT" INPUT ERROR! TRY AGAIN 

1.320 RETURN 

1350 REM DELAV SUBROUTINE 

1360 F0RI=1T0588:NEXT I 

1.370 RETURN 

14O0 REM 

1410 PRINT "ENTER 99999 WHEN DONE OR 88888 TO CHANGE"" 

1420 RETURN 

1450 REM RESET COUNTER 

1460 I =1 : FOR J=8T068 : C ■:.' .J > =6 : NEXT J 

1479 RETURN 

1500 REM SUM VARIABLES 

1510 T=0:FOR J=8T0I : T==T+CCJ> : NEXT J 

1528 RETURN 

1550 REM INPUT COST SUBBROUTINE 

1.568 PR I NT "AMOUNT ".; Is " = ".; : INPUT C<I> 

1570 IF C ■:." I ':> =99393 1 = 1-1 

1 575 I F C < I > = 8 8 8 8 8 1 = 1- 1 ; G S U B 1 8 8 

1580 RETURN 

1600 REM FORMAT VARIABLES 

1610 F*<1>=" LINE NO. AMOUNT I" 

1615 F$<2>=" ## **:■!:####. ##" 

1620 F*'3> = " X X **#####. ##" 

1650 RETURN 

170O REM 

1710 INPUT "PRESS ENTER TO CONTINUE".; 29 

1720 RETURN 

1750 REM PRINT SUBROUTINE 

1760 CLS: PRINT "FILL. IN FOLLOWING LINES ON FORM 1040" 

1770 PR I NTUS I NG F* < 1 > ; Z7* : RETURN 

1880 REM CHANGE SUBROUTINE 

1810 PRINT: INPUT "WHICH COST NUMBER DO YOU WANT TO CHANGE".; Zl 

1820 IF ZK0 OR ZlOINTCZl;- OR Z1>I GOSUB 130© : GOTO 1.810 

1830 PRINT "COST ".; Zl.; " =".;: INPUT C<Z1> 

1840 PRINT: RETURN 

908O PRINT " TAX COMPUTATION ":PRINT 

9005 DEFDBL C, T, B 
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3887 DIM COS8X' 7XSS> 

9818 INPUT" INPUT ADJUSTED GROSS INCOME-LINE 31, P. 1 ".; TX32> 

9828 PRINT. INPUT "DO VOU ITEMIZE DEDUCTIONS <V/N> "i 29* 

9838 IF 29*= "N" T'33^8 : GOTO 9888 

3848 IF 29*0"V" GOSUB 1388 : GOTO 9828 

9858 PRINT. INPUT "INPUT AMOUNT ON SCHEDULE A, LINE 41".; IT 33 > 

9 8 8 8 T •'" 3 4 > = T c. 3 2 > -- T ■'! 3 3 ."• 

9898 GOSUB 1688 ; GOSUB 1758 

9188 FOR J=32 TO 34 : PRINTUSING F*<2>.; T, T< J> : NEXT J 

9118 GOSUB 1788 

9128 CLS. INPUT "WHAT FILING BOX DID VOU CHECK ON P. 1 OF 

1848 (. 1-5 ;•".; FS 
9138 IF FSOINT<FS> OR FS<1 OR FS>5 GOSUB 1.388 : GOTO 9128 
9148 IF FS=2 OR FS=5 T9 = 48888 ELSE "19=28888 
9145 IF T9<-TC?4::' GOTO 9258 

9158 INPUT"DID VOU USE SCHEDULES D OR G OR FORM 4726 CV/N) ".; 21* 
9168 IF Z1*0"V" AND 21*<>"N" GOSUB 1388 : GOTO 9158 
9165 IF Z1*="V" GOTO 9258 

9178 INPUT "HOW MANY EXEMPTIONS DID VOU CLAIM"; T<7> 
9188 IF T<7X>INT<T<7>> OR T<7><8 GOSUB 1388 : G8T0 9178 
9198 IF T<7><=3 AND FS=1 PR I NT "COMPUTE TfiX USING TAX 

TABLE A ".GOTO 9S®& 
9288 IF T':7><=9 AND <FS=2 OR FS=5> PRINT "COMPUTE TAX USING 

TAX TABLE B":GOTO 9388 
9218 IF T'C7><=3 AND FS=3 PR I NT "COMPUTE TAX USING TAX 

TABLE C":GOTO 9388 
9228 IF T<7><=8 AND FS=4 PR I NT "COMPUTE TAX USING TAX 

FABLE D " : GOTO 9388 
9258 PRINT "VOU MUST COMPUTE TAX USING TAX RATE SCHEDULES AND 
9268 PRINT "SCHEDULE TC. 

9388 F* ■•: 5 > = " COMPUTE TAX ON AN AMOUNT OF +**####. ##" 
93 85 PR I NT PR I NTUS I NG F* < 5 > } T < 34 > 

9318 PRINT: INPUT" INPUT YOUR COMPUTED TAX "i T05> 
9315 GOSUB 1788 

9328 PRINT: PRINT" INPUT ADDITIONAL TAXES 1 BY 1 OR SUMMED" 
9338 GOSUB 1488 : GOSUB 1458 
9348 GOSUB 1558 

9358 IF C< 1+1 j=S'9339 GOTO 3378 
9368 1=1+1: GOTO 9348 
9378 GOSUB 1588 : T >■. 36 > =T 
9388 T'37;'=T05 >+T'36> 
3398 GOSUB 1758 
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946© 
9410 
9506 
9510 
9520 
9530 

9540 
9550 
9560 
9570 
9580 
9590 
9600 
9610 
9620 
9630 
9700 
9710 
9720 
9730 
9735 
9740 
9750 
9760 
9770 
9780 
9 "7 90 
9800 
9820 
9830 
9840 
9850 
9860 
9870 
9880 
9890 
9900 
9910 
9920 
9930 
9940 



FOR J^35 TO 37:PRINTUSING F*<2>; J, T< J> : NEXT J 

QOSUB 1700 

CLS : PR I NT " CRED I TS " : PR I NT 

INPUT" INPUT CREDITS FOR CANDIDATES FOR PUBLIC OFFICE ".; T<38*> 

INPUT" INPUT CREDIT FOR ELDERLV< ATTACH SCHEDULES R & RPV; T>:*~:^ 

INPUT "INPUT CREDIT FOR CHILD & DEPENDENT CARE 

EXPENSE < FORM 2441 > " ; T < 40 > 

INPUT "INPUT INVESTMENT CREDITS FORM 3468 > ".; T<41> 

INPUT" INPUT FOREIGN TAX CRED IT < FORM 1116 > ".; T<42> 

I NPUT " I NPUT WORK I NCENT I VE < W I N > CRED I T < FORM 4874 > " ; T < 43 > 

INPUT "INPUT NEW JOBS CRED IT':; FORM 5884> "j T<44> 

I NPUT " I NPUT RES I DENT I AL ENERGY CRED I TS < FORM 5695 > " .; T < 45 > 

T=@ : FOR J==38 TO 45 : T=T+T < J > : NEXT J : T < 46 > ^T 

T<47>=T<37>-T<46>:IF T<47><0 THEN T<47>=8 

GOSUB 1750 

FOR J-38 TO 47:PRINTUSING F*<2X; J, T<J> : NEXT J 

GOSUB1700 

CLS ; PR I NT " OTHER TAXES " ; PR I NT 

I NPUT " I NPUT SELF-EMFLO VMENT TAX < SCHEDULE SE > " ; T < 48 > 

I NPUT " I NPUT M I N I MUM TAX < FORM 4625 > " ; T < 49 > 

PRINT" INPUT TAX FROM RECOMPUTING PRIOR-YEAR INVESTMENT CREDIT. 

PRINT" <FORM 4255>"i : INPUT T<58> 

INPUT" INPUT NON-REPORTED FICA TAX ON TIP INCOME* FORM 4137 > ".; T<51> 

INPUT" INPUT NONCOLLECTED FICA & RRTA TAX ON T IPS< FORM W™2':< " ; T«rs? :. 

INPUT "INPUT TAX ON IRfi<FORM 5329 > "; T<53> 

T=0 : FOR J-47 TO 53 ; T-T+T < J > : NEXT J ; T < 54 > =T 

GOSUB 1750 

FOR J=48 TO 54:PRINTUSING F$<2>; J, T<J> ;NEXT J 

GOSUB 1700 

CLS : PR I NT " TAX PAYMENTS " : PR I NT 

PR I NT "I NPUT FEDERAL INCOME TAXES WITHHELD 1 BY 1 OR SUMMED 

GOSUB 1400: GOSUB 1450 

GOSUB 1550 

I F C < I +1 > -99999 GOTO 9888 

I-I+l:GOTO 9850 

GOSUB 1508 : T < 55 > =T 

CLS .PRINT" INPUT ESTIMATED TAX PAYMENTS & CREDIT FROM 1977 RETURN 

PR I NT "EITHER 1 BY 1 OR SUMMED. " 

GOSUB 1480: GOSUB 145© 

GOSUB 1558 

I F C < I +1 > -9999S 1 GOTO 9950 

I « I +1: GOTO 9920 
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3950 GOSUB 1500:TX56}=T 

9968 PRINT: INPUT" INPUT EARNED INCOME CREDIT"; TC 57} 

3978 INPUT" INPUT AMOUNT PAID WITH FORM 4868 < EXTENSION PE<"'I IEST'. " ; T'"^:=:-. 

3988 CLS: PR I NT "INPUT FICA WITHHELD 1 BV 1 OR SUMMED" 

9998 GOSUB 1488 : GOSUB 1458 

10008 GOSUB 1558 

18818 IF CC 1+1} =99999 GOTO 18838 

18820 I - I +1 : GOTO 108Gi8 

10030 GOSUB 1500 

10040 IF T-C1878. 75 TC59}=0 ELSE T<59}=T-1070. 85 

18050 CLS 

10060 PRINT" INPUT CREDIT FOR FEDERAL TAX ON SPECIAL Fl IEL'=: A \~au-. 
10070 INPUT" <FORM 4136} ".; TCSO} 

10088 PRINT .INPUT" REGULATED INVESTMENT CO. CREDITCFORM 24~:9} " ; T':'6'J } 

18898 T=8:F0R J=55 TO 61 : T=T+T< J} : NEXT ,T:T<62}=T 

18100 GOSUB 1750 

10110 FOR ,T=55 TO 62 : PRINTUSING F*<2}.; J, TCJ} : NEXT J 

1812© GOSUB 1700 

10150 CLS : T=T < 54 > -T < 62 } 

10160 IF T>0 T < 66 >=T: GOTO 18258 

18170 T=-~T : T < 63 } =T 

10180 F*<6> = "V0U OVERPAID **$####. ## . ENTER ON I INE «"" 

10190 PRINTUSING F*<6J; T<63> 

10200 INPUT "HOW MUCH OF LINE 63 DO VOU WANT REFUNDED TO VOU".; T<64} 

10210 IF T •' 64 } >T < 6 s } GOSUB 1300 : GOTO 10180 

10220 T < 65 } =T < 63 } -T <. 64 } 

10230 GOSUB 1750 

1024O PR I NTUS I NG F* < 2 } ; 64, T < 64 } : PR I NTUS I NG F* < 2 > .; 65 - T ( 6F, } 

10245 END 

10250 F*<?>=" BALANCE DUE = ***####. ## . ENTER ON LINE 66" 

10255 PR I NTUS I NG F* <. 7 } .< T < 66 } 

10260 PRINT" AND MAKE CHECK PAVABLE TO "INTERNAL REVENUE '^EP'-'irE" 
10280 END 
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16 REM *** INCOME TAX-SCHEDULE A*** 

10© CLS; PRINT" SCHEDULE A COMPUTATION" 

HO PRINT "PRESS ENTER TO BEGIN".; : INPUT Z9 

120 CLS : GOTO 3880 

1308 REM 

1316 PR I NT; PR I NT "INPUT ERROR! TRY AGAIN! " : FOR K-1TO30O : NEXT K 

1320 RETURN 

1350 REM DELAY SUBROUTINE 

1360 FORI=1TO500;NEXT I 

1370 RETURN 

140O REM 

1410 PRINT "ENTER 99999 WHEN DONE 88888 TO CHANGE"" 

1420 RETURN 

1450 REM RESET COUNTER 

1468 I =1 : FOR J--0TO6O : C < J' > =0 : NEXT .J 

1470 RETURN 

1500 REM SUM VARIABLES 

1510 7=0: FOR J'=8T0I :T»T+C<J> : NEXT J 

1.520 RETURN 

1550 REM INPUT COST SUBBROUTINE 

1560 PR I NT "COST ".; I.; " = ".; : INPUT C<I> 

1570 IF C (I > =99999 1=1-1 

1575 IF C<I>=88888 1=1-1 : GOSUB 1888 

158© RETURN 

1.680 REM FORMAT VARIABLES 

1610 F*'::i> = " LINE NO. AMOUNT !" 

1615 F*<2;' = " ## ***####. ##" 

1.620 F*<3> = " X "/. ***####. ##" 

1650 RETURN 

170O REM 

1710 INPUT "PRESS ENTER TO CONTINUE".; Z9 

1720 RETURN 

1750 REM PRINT SUBROUTINE 

1.760 CLS: PRINT "FILL IN FOLLOWING LINES ON SCHEDULE A" 

1770 PR I NTUS I NG F* < 1 > ) Z7$ : RETURN 

1.888 REM CHANGE SUBROUTINE 

181.0 PRINT: INPUT "WHICH COST NUMBER DO YOU WANT TO CHANGE".; Zl 

1820 IF ZKI8 OR ZlOINT(Zl) OR Z1>I GOSUB 1300 . GOTO 1.810 

1830 PRINT "COST ".; Zl.; " ="• : INPUT C<Z1> 

1.840 PRINT: RETURN 

3O00 REM SCHEDULE A CALCULATION 

3O05 DIM C<68>, M<60;:' 

301O INPUT" INPUT ADJUSTED GROSS INCOME'T-'ORM 1040, LINE 31>".;AGI 

3020 IF AGK0 GOSUB 1388 : CLS : GOTO 3818 
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£825 

5 030 

£832 
5834 
5*83*6 
£ 83 8 
£039 

£048 

£858 

£868 
£078 
5118 
5115 
£117 
£120 
£130 
£140 
£150 
£180 

£200 

i:210 
!:220 
1230 



3240 

3250 
3270 

3280 
3290 

3388 
3318 
3338 

3348 
3368 

3388 
3*398 
3395 



PR I NT "WHICH FILING STATUS BOX ON FORM 1848 DID VOU CHECK? 

INPUT "IS IT LINE 1,2,3,4 OR 5" = FS 

IF FS-2 OR FS-5 i'*K48X£280 

I F F S -~ 1 R 4 l v l < 4 > »- 2 2 8 8 

I p p s — 3 f '1 < 4 8 > ~ : 1 6 8 8 

I F M «• 4 8 > < 1600 G S U B 1 2 O 8 : G T 3 2 5 

PRINT 

PRINT "CALCULATION OF MEDICAL AND DENTAL EXPENSES" ; PRINT 

INPUT" INPU1 rOTAL INSURANCE PREMIUMS PAID FOR MEDICAL 

CARE"; P':'.l> 

IF P'- !X>300 M<1>=150 ELSE M»:i>~ 5*P<1> 

M .; 5 ;« ^p < i > -m < i > : QOSUB1350 

CLS: PRINT" INPUT COSTS OF MEDICINES & DRUGS 1 BV 1 OR SUMMED 

PR I NT" NEGATIVE COST - INSURANCE REIMBURSEMENT. 

GOSUB 1408 

GOSUB 1458; REM SET COUNTER-1 EXPENSE VARIABLES-8 

GOSUB 1558 

I F C < I +1 > --9999S 1 GOTO 3188 

I-I+l : GOTO 3138 

GOSUB 1580 

M C 2 > ~T : M k 3 > ~ 81* AG I : M < 8 > ~ 83*AG I 

M<4>=M<2>-M<3>:IF M<4><8 THEN M<4>-8 

GOSUB 1358 ; CLS 

GOSUB 1680 

GOSUB 1750 

FOR J=1T0 5:PRINTUSINQ F*<2>< J, MCj;:. : NEXT J 

GOSUB 1700 

CLS: PR I NT "INPUT COSTS OF DOCTORS, DENTISTS, NURSES, ETC. , 1 BV 1 

PR I NT " OR SUMMED. NEGAT I VE COST™ I NSURANCE RE I MBURSEMENT. 

G S Ll B 1 4 8 8 ; G S U B 1 4 5 8 

GOSUB 1558 

I F C < I +1 > -9S9SS GOTO 3388 

1=1+1 : GOTO 3278 

GOSUB 1580 

M<45>-T:REM LINE 6 A 

CLS: PRINT" INPUT HOSPITAL COSTS, 1 BV 1 OR SUMMED 

PRINT "NEGATIVE COST™ I NSURANCE REIMBURSEMENT 

G S U B 1 4 8 8 : G S U B 1458 

GOSUB 1558 

I F C < I +1 > -99999 GOTO 3398 

1=1+1: GOTO 3368 

GOSUB 1588 :M<46>=T: REM LINE 6B 

CLS : GOSUB 1758 

PR I NTUS I NG F* < 3 > ,; " 6A " , M < 45 > 

PR I NTUS I NG F$ < 3 > .; " 6B " , M < 46 > 
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"£3-33 
2418 
2415 
3:428 
5448 
3:458 
3:466 
3*478 
2488 
2498 
3586 
2518 
2528 
25126 
2548 
2558 
2576 
2686 
2618 
2626 
2648 
2658 
2666 
£678 
26 88 
5696 
2788 
2728 
2728 
2746 
£758 
£768 
£778 
£788 
£798 
£818 
£828 

£848 
£858 
£868 
£878 
1:896 
£988 
£916 



GOSUE 1786 

CLS: PRINT" INPUT LINE 6C ITEMS 1 BV 1. » 

PR I NT "WRITE THESE ITEMS ON LINE 6C 

QOSUB 1488:Q0SUB 1458 

QOSUB 1556 

I F C < I +1 > -33333 GOTO 3478 

1=1+1: GOTO 3448 

GOSUB 1586 : M < 47 > =T 

M < 7 > =M < 4 > +M < 5 > +M < 45 > +M < 46 > +M < 47 > 

MO)=M(7)"-M(8) : IF 11(9X6 THEN f'K9>=8 

M < 18 ;< =M < 1 > +M < 9 > : M < 33 > =M < 18 > 

GOSUB 1758 



■; 9.. I'K9> 
>; 18.. M'::i8> 



PRINTUSING F*<2> 

PRINTUSING F*<2> 

PRINTUSING F*<2> 

PRINTUSING F*<2> 

GOSUB 1788 

CLS : PR I NT " CRLCULf IT I ON OF TAXES " 

PRINT" INPUT STATE & LOCAL INCOME TAXES,! BV 1 OR SUMMED. " 

GOSUB I486 : GOSUB 1458 

GOSUB 1558 

I F C < I +1 > =99999 GOTO 3676 

1=1+1: GOTO 3646 

GOSUB 1568 

M>::il>=T 

CLS: PRINT" INPUT REAL ESTATE TAXES PAID, 1 BV 1, OR SUMMED. 

GOSUB I486 : GOSUB 1456 

GOSUB 1556 

I F C < I +1 > =99999 GOTO 3758 

1=1+1: GOTO 3728 

GOSUB 1568 

M<12>=T 

CLS: PRINT" INPUT S & L GASOLINE TAXES < TAX TABLE P. 16 > 

PR I NT "THIS MAV BE DONE CAR BV CAR OR SUMMED. 

GOSUB I486: GOSUB 1458 

GOSUB 1556 

I F C >:; I +1 > =99999 GOTO 3848 

1=1+1: GOTO 3818 

GOSUB 1588 

M<13::-=T 

CLS: PRINT" INPUT GENERAL SALES TAXES, TOTAL OR 1 BV 1" 

GOSUB I486 : GOSUB 1456 

GOSUB 1556 

I F C < I +1 > =99999 GOTO 3928 

1=1+1: GOTO 3896 
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3328 GOSUB 1588 

3930 M<14>^T 

3348 CLS: PR I NT "INPUT PERSONAL PROPERTV TAXES. 1 BV 1 OR SUMMED, 

3958 GOSUB 1488 : G0SUB1458 

3978 GOSUB 1558 

3 9 8 8 I F C < I -i- 1 > ™ 9 9 3 9 9 G T 4 8 8 8 

3 9 9 8 1 = 1 -I- 1 : Q T 3 9 ? 8 

4 8 8 8 G S U B 15 8 8 

4818 M<15>-T:REM PERSONAL PROPERTV TAXES 

4858 GO S U B 1 7 5 8 

4868 FOR J'~±±T0±5 

4878 PRINTUSINQ F*<2^XM<J) 

4880 NEXT J 

4 8 9 G S U B 1 7 8 8 

4188 CLS: PR I NT "INPUT OTHER TAXES, LINE 16,1 BV 1. ENTER ON 

SCHEDULE A 
4 1 1 8 G S U B 1 4 8 8 : G S U B 1 4 5 8 
4138 GOSUB 1558 

4148 I F C <. I +1 > =99999 GOTO 4168 
4150 I =3 1 +l : GOTO 4130 
4 1 6 G S U B 1 5 8 8 
4178 M<1S>=T 

4180 M < 17 > -M < 11 > +M < 12 > +M < 13 > +M < 14 > +M < 15 > +M < 16 > : M < 34 > =*M < 17 > 
4190 GOSUB 1750 

4200 PRINTUSINQ F*<2>^ 17, M<17> 
4218 PRINTUSINQ F*<2>; 34, M<34> 
4228 GOSUB 1700 

4308 CLS: PR I NT "CALCULATION OF INTEREST EXPENSE 
4318 PRINT" INPUT HOME MORTGAGE INTEREST,! BV 1, OR SUMMED 
4328 GOSUB 1488 : GOSUB 1458 
4348 GOSUB 1558 

4358 I F C < I +1 > -99399 GOTO 4378 
4 3 6 8 I ~ I + 1 : G T 434 8 
4378 GOSUB 1588 

4388 M<48>»T: REM HOME MORTGAGE 
4488 CLS: PR I NT "INPUT CREDIT & CHARGE CARD INTEREST EXPENSE, 

1 BV1 OR SUMMED, 
4418 GOSUB 1400 : G0SUB1458 
4438 GOSUB 1558 

4440 i p C < I +1 > -99999 GOTO 4468 
4458 1=1+1: GOTO 4438 
446 8 G S U B 1 5 8 8 

447@ M<C49>=T:REM CREDIT & CHARGE CARDS 
4475 M < 18 > =M < 48 > +M < 49 > 
4488 GOSUB 1758 
4498 PRINTUSINQ F*<3>j "ISA", M<48> 
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4580 
4505 
4510 
4520 
4530 
4550 
4560 
4570 
45S0 
4590 
4600 
4610 
4620 
4620 
4650 
4700 
4710 
4720 
4740 
4750 
4760 
4770 
4780 
4730 
4800 
4810 
4820 
4840 
4850 
4860 
4870 
4880 
4888 
4800 
4920 
4330 
4940 
4950 
4360 
4970 
4380 
4990 

5000 
5010 
5100 



PR I NTUS I NG F* < 3 > .; M 18B " , M < 49 > 

GOSUB 1700 

CLS: PRINT" INPUT OTHER INTEREST EXPENSE, LINE 19, 1 BV 1 

PR INT "ENTER ON SCHEDULE A 

GOSUB 1480 ; GOSUB 1450 

GOSUB 1550 

I F C ' : I + 1 > =99999 GOTO 45 8 

I-I+l:QOTC'i 4550 

GOSUB 1500 

hK±9>-T 

M <C 20 > -M < 18 y +M C 19 > : M < 35 > =M < 28 > 

GOSUB 1750 

PR I NTUS I NG F* < 2 > .; 20, M < 20 > 

PR I NTUS I NG F*'::2>.i 35, i v K35> 

GOSUB 1708 

CLS : PR I NT " CONTR I BUT I ONS " 

PR I NT' 1 INPUT RECEIPTED CASH CONTRIBUTIONS,! BV 1 OR SUMMED 

GOSUB 1400 : GOSUB 1450 

GOSUB 1550 

I F C < I + 1 > ™ 9 9 9 9 9 G T 4 7 7 © 

I«H-l:GOTO 4740 

GOSUB 1500 

M<50>^T 

GOSUB 1750 : PR I NTUS I NG F* < 3 > ; " 21fl " , M < 50 > 

PRINT: PRINT" INPUT UNRECEIPTED CASH CONTRIBUTIONS,! BV 1 

PRINT "ENTER ON SCHEDULE fl 

GOSUB 1400 : G0SUB1450 

GOSUB 1558 

I F C < I -*•• 1 > - 9 9 9 9 9 G T 4 8 7 O 

1-1*1 . GOTO 4848 

GOSUB 1500 

M < 51 > -T : M < 21 > =M < 50 > +M < 51 > 

CLS: PRINT" INPUT OTHER THAN CASH CONTRIBUTIONS,! BV 1 OR SUNNED 

GOSUB 1408 : GOSUB 1450 

GOSUB 1550 

I F C C I ■+* 1 > ~ 9 9 9 9 9 G T 4 9 5 @ 

I™ 1*1 : GOT 04920 

GOSUB 1500: M<22>~T 

CLS: INPUT "INPUT CARRV OVER FROM PRIOR YEARS "5 M<23> 

II < 24 > ^M < 21 > -HI C22'j -*-M < 23 > : i'-i < 3:6 > ~M C 24 > 

GOSUB 1750 

FOR J-22T024:PRINTUSING F*<2>j J, M<J> : NEXT J 

PR I NTUS I NG F* < 2 ;< } 36, M < 36 > 

GOSUB 1700 

CLS:PRINT n CASUALTV & THEFT LOSSES" 



147 



H 



CQIYIPUTRQNICS 



N 
C. 



MATHEMATICAL APPLICATIONS SERVICE 1 



511© 

5120 
5138 

5135 

5140 
5150 

5160 
5170 

5180 
5190 
5200 
5210 
5250 
5260 
5270 
5280 
5290 
5300 
5310 

5350 

5360 

5380 
5390 
5400 
5410 
5415 
5420 
5430 
5440 
5450 
5455 

5460 
5470 



INPUT "HON MANY LOSSES ARE YOU CLAIMING" = Z9 

I F Z9~@ 11 ■■ 29 > -8 ; GOSUB 1750 : GOTO 520© 

IF Z9>1 PR I NT" FILL IN FORM 4684" : INPUT "FORM 4684 

TOTAL -"; M<29> 

IF Z9>1 M<37>=H<29> : GOSUB 1750 ; PRINTUSING F$<2>; 

29, M''29> : GOTO 5200 

I NPUT " LOSS BEFORE RE I MBURSEMEHT " .; M < 25 > 

I NPUT " I NSURflNCE RE I MBURSEMENT " .; M < 26 > 

IF M'::26>>M»':25> THEN M<27>«© ELSE M<27>«M<25>-M< 26 > 

M < 28 > =M < 27 > : I F10O<M <C 27 > THEN 10@=M < 28 > 

M *; 29 > ~M <: 27 > -M >: 28 > ; M >; 37 > ~M »; 29 > 

GOSUB 1750 
FOR J-25T029 : PR I NTUS I NG F* C 2 > .; J, M < -J > : NEXT J 
PR I NTUS I NG F* < 2 > ; 37', M < 37 > 
GOSUB 1700 

CLS : PR I NT " M I SCELLANEOUS DEDUCT I ONS " 
PRINT" INPUT UNION DUES 1 BY 1 OR SUMMED 
GOSUB 1400 : GOSUB 14 50 
GOSUB 1558 

I F C < I + 1 > -" 9 9 9 9 9 G 1" 5 3 1 @ 
I~]>l:GOTO 5280 
GOSUB 150U : M C 30 > ~T : Q0SUB1750 ; PR I NTUS I NG F* •: 2 > .; 

30, M<30> : GOSUB1700 

CLS: PR I NT "INPUT OTHER MISC. DED. 1 BY 1 & ENTER ON SCHEDULE A" 

GOSUB 1400 ; GOSUB 1450 

GOSUB 1550 

I F C < I -I- 1 > - 9 9 9 9 9 G T 5 4 8 8 

]>]>! : GOTO 5378 

GOSUB 1508 : M<31>-T : l v K32>=l v K31>+M<:30> : M<3S>=M<32> 

\>\ { 23 > ~M < 33 > +M < 34 > +M < 35 > +M '' 36 > +M < 37 > -H'l < 38 > 

M<41>^MO9>~T1<40> ; IF M'*:41><@ THEN M»- 41>»8 

GOSUB 1750 

PR I NTUS I NG F$ < 2 > j 32, M (32): PR I NTUS I NG F* < 2 > ; 38, M < 38 > 

PR I NTUS I NG F* < 2 > .; 3:9, M < 39 > 

PR I NTUS I NG F* < 2 > .; 48, M t. 48 > : PR I NTUS I NG F* C 2 > .; 41, M < 41 > 

IF M*;4i> 5= PRINT: PRINT "USE SHORT FORM OR SEE PAGE 11 

INSTRUCTIONS. " 

PRINT "ENTER ".« M(41)^ "ON FORM 104O LINE 33 WHEN COMPUTING Tflfc 

IF M<41>=© PR I NT "UNLESS SHORT FORM IS USED. 
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IFYOUOWNATRS80? 

TRS-80 is a product of Radio Shack, A Tandy Corporation 

PUTS YOU JUST A 




CABLE LENGTH AWAY FROM A 

"UADIl PH DV / Typewriter Quality: \ 

nnnU UUrl \ clean, clear, high-fidelity / 

Word Processing System! 



. . Just a simple hook-up with the supplied cables 
and your SELECTRA-PRINT is ready to run. 

For Word Processing on a TRS-80, for example, 
just command "LPRINT" and SELECTRAPRINT 
automatically outputs clear, clean, high-fidelity, 
hard copy. . . . and of course you can use it to 
print-out any other informa t ion you might need. 

SPECIAL NOTE: 
SELECTRAPR/NT is a Selectric I! typewriter and 
although it has been modified for computer 
print-out, it may still be used as a standard 
office typewriter. 

PRICE: $1,850.00* *TR$-80 Version $1925.00 

OPTIONS: 

Dual Pitch $125,00 

Correction Feature $125.00 

Noise Reduction Feature $5000 

RS-232 Interface $195 00 



"K SELECTRA -PRINT is VERSATILE! 

SELECTRA-PRINT is compatible with most micro- 
and mini-computers including PET ® Apple # 
Heath H8 © I MS A I # Cromemco # Alpha Micro- 
systems ® Space Byte # North Star Horizon 9 
SWTP G Vector Graphic ® Sol ® Polymorphic # 
Digital Group • Ohio Scientific @ Aitair ® Sorcerer 
Xitan m Rex • KIM ® EXORcisor .... 

"From now on, PRINT-OUT 
takes on a new meaning" 



M30 




micro 

computer 

devices 

inc. 

960 E. Orangethorpe, Bldg. f 

Anaheim, California 92801 

Telephone (714) 992-2270 




"Innovators to the Microcomputer Industry" 



RADIO SHACK 





RADIO Wj» 



™« nnTRIlMSFORMED 

Ms 80 sy«J» SSeKsW «> — * * 
TDcnn<i Thp software is sup^™ u 

1KbUUb c .m B raiTIHEURRWV-°r'* H e 



COMPLEX variables) 

i miiiitfi LOUDER to !«■«« an , d ' oad 

execution 



SURROmWEUBR|R| S? « 

h wary ol subrogees p»»Q Qr assem t,ler 
unkable modules l« K£ i SQUare 

SRSStJ Sseeebee.als e.e 
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Please send me the Name 

TRS-80 FORTRAN 

Package @ $325 00 Address 

(plus $2 00 shipping or 

$5.00 foreign) City. State. Zip„ 

□ Check enclosed 

DCOD ($1 OOadd'l) Acct No 

C Master Charge 

"\ VISA Signature 



_Expires„ 



BEYOND TRS-80 



TRS-80, you got a glimpse of its full 
pbtehtial. 



Now Microsoft introduces: 



TRS-80 Fortran 



atiMTOS^sa never be the same! 
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;TR^8D;\F<>RTRAN includes the finest 
Z-80 development software available: 

Z-80 Macro Assembler, versatile Text Editor, 
and ■'■Linking Loader 

Total price: Only $350*00 



TO: Microsoft, 10800 NE Eighth, Suite 819, Bellevue, WA 98004 

□ Send me free TRS-80 FORTRAN overview. 

□ Send me TRS-80 FORTRAN and Z-80 development soft- 
ware for $350.00. 

□ Check enclosed □ Master Charge □ VISA 
Card Number Exp Date 



Cardholder's Signature. 



Name. 



Address. 
City 



.State. 



_Zip_ 



Clip the coupon and ORDER 
NOW; or send for free 
overview for more detail 
about TRS-80 FORTRAN . 

TRS-80 FORTRAN is supplied on 
two 'minidiskettes 'and requires a % 
32K system with one disk drive. 

Dealer inquiries invited. 



10800 NE Eighth, Suite 819 
Bellevue, WA 98004 



- 









RADIO SHACK COMPUTER OWNERS 



TRS80 



MONTHLY 

Nru/ci CXXETD 
eW5Lc I B tn 



i 
* 



i 



tf£ 



• PRACTICAL APPLICATIONS 

• BUSINESS 

• GAMBLING • GAMES 

• EDUCATION 

• PERSONAL FINANCE 

• BEGINNER'S CORNER 

• NEW PRODUCTS 

• SOFTWARE EXCHANGE 

• MARKET PLACE 

• QUESTIONS AND ANSWERS 

• PROGRAM PRINTOUTS 
AND MORE 

WORD PROCESSING PROGRAM (Cassette or Dis 

For Writing Letters, Text, Mailing Lists, Files, Etc. 
With Each New Subscriptions Or Renewal 



•CQMPLJTHQNICS 



M&T>-evUWICAL AFRJCATTOrgS SERV/1CE" 



Box 149 



New City, New York 10956 




ONE YEAR SUBSCRIPTION $24 . 
TWO YEAR SUBSCRIPTION $48. 
SAMPLE OF LATEST ISSUE $4 _ 



HOUR 
24 ORDER 

LINE 
(914) 425-1535 



»^r 



START MY SUBSCRIPTION WITH ISSUE_ 
(#1 - July 1978 • #7 - January 1979) 

NEW SUBSCRIPTION RENEWAL . 



CREDIT CARD NUMBER 

SIGNATURE 

NAME 



EXP. DATE- 



ADDRESS 



RADIO SHACK COMPUTER OWNERS 



TRS80 



BUSINESS 
PACS 



DISK * CASSETTE 

• ACCOUNTS RECEIVABLE 

INCLUDES COMPLETE CUSTOMER LISTINGS AND REPORTS. 

• ACCOUNTS PAYABLE 

INCLUDES COMPLETE VENDOR LISTINGS AND REPORTS. 

• INVENTORY CONTROL 

COMPLETE INVENTORY LISTINGS AND EDITING WITH STOCK STATUS ALERT. 

® INVOICING 

PREPRINTED TRACTOR FEED FORMS OR PRINTS CUSTOMER FORM ON PLAIN WHITE TRACTOR 
FEED PAPER. 

• PAYROLL 

COMPLETE LISTINGS OF EMPLOYEE RECORDS, CALCULATIONS OF COMPLETE PAYROLL BY 
EXACT CALCULATION METHOD USED ON TAX TABLES. 

• COMPLETE BUSINESS PAC 

INCLUDES ACCOUNTS RECEIVABLE, ACCOUNTS PAYABLE, INVENTORY CONTROL, INVOICING 
AND PAYROLL (ALL DESCRIBED ABOVE PLUS A COMPLETE GENERAL LEDGER, BALANCE SHEET, 
INCOME STATEMENT AND BUDGET ANALYSIS. 

• MAILING LIST 

PRINTS LABELS (1 OR 2 ACROSS), STORES NAMES ON DISKETTE, SORTS BY ZIP CODE, ALPHABETI- 
CAL ORDER, BY NUMBER OR BY CATEGORY. INVOICING OPTION ALSO ALLOWS FOR CUSTOMER 
BILLING. 

• COMPLETE HOME BUDGET 

THIS PROGRAM WILL DO IT ALL. IT WILL KEEP TRACK OF ALL YOUR MONTHLY BILLS...LET YOU 
KNOW WHAT BILLS ARE STILL UNPAID... LISTS OUTSTANDING CHECKS-BALANCES YOUR 
CHECKBOOK AND LISTS ALL DEDUCTIONS AT THE END OF THE YEAR FOR FEDERAL INCOME 
TAX RETURN. 

• SMALL BUSINESS ACCOUNTING PAC 

INCLUDES DOME BOOKKEEPING JOURNAL. 

COMPLETE CHART OF 42 EXPENSE AREAS. 

PROVISION FOR CUSTOM ACCOUNT AREAS. 

REPORTS FOR YEAR TO DATE, YEAR TO LAST WEEK AND THIS WEEK. 

• CUSTOM PROGRAMMING 

WE HAVE A STAFF THAT CAN WRITE ANY CUSTOM BUSINESS PROGAM. ALL BUSINESSES DIFFER. 
WE WILL WRITE A PROGRAM TO CONFORM TO YOUR EXACT NEEDS. CALL FOR MORE INFORMA- 
TION. 
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